module precisions
  integer, parameter :: rk = selected_real_kind(33, 4931)
  !integer, parameter :: rk = selected_int_kind(15) 
  integer, parameter :: lowprecintkind = selected_int_kind(1)
  integer, parameter :: midprecintkind = selected_int_kind(8) 
  integer, parameter :: highprecintkind = selected_int_kind(15) 
end module precisions